#!./perl
#req_more_info.pl
# ------------------------------------------------------------
# render dynamic page
# get args
while (@ARGV) {
$ARGV=shift;
$orig = $ARGV;
$name = $orig;
$name =~ s/=.*//g;
$param = $orig;
$param =~ s/.*=//g;
#place custome params here
if ($name eq "size") {$size = $param;}
if ($name eq "dest") {$dest = $param;}
if ($name eq "alpha") {$alpha = $param;}
}
#$dest =~ s/.$//g;
#$dest2 = $1;
#$dest = $dest#$dest2;
#for (@ARGV){s/\\//g};
# $dest = @ARGV;
# local($pquery) = join(" ", @query);
# local($nquery) = $pquery;
# $nquery =~ tr/[A-Z]/[a-z]/;
# if (!(($nquery =~ / and /) || ($nquery =~ / or /)))
# {
# $nquery =~ s/ //g;
# }
$~ = HTMLHEADER;
write STDOUT;
print "\n";
print "\n";
$~ = HTMLFOOTER;
write STDOUT;
##############################################################################
format HTMLHEADER =
Content-type: text/html
CDware May 1996
.